(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     33770,        794]
NotebookOptionsPosition[     31872,        731]
NotebookOutlinePosition[     32294,        747]
CellTagsIndexPosition[     32251,        744]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Combustion Chamber Monopropellant", "Section",
 CellChangeTimes->{{3.4785828348125*^9, 3.478582896703125*^9}, {
   3.5159023652393904`*^9, 3.5159023668175154`*^9}, 3.5698707380574408`*^9}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG.mx"}]], "Input",
 CellChangeTimes->{{3.5772037650720577`*^9, 3.5772037650780582`*^9}, {
  3.611474457184202*^9, 3.611474523938877*^9}, {3.6114745588913717`*^9, 
  3.61147456057154*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Special\>\"", ",", "\"\<Aerocomponents\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, 3.6031909973287797`*^9, 
   3.6057717887213297`*^9, {3.605771829393656*^9, 3.605771830929744*^9}, 
   3.6058530990363216`*^9, {3.621138851005574*^9, 3.621138863716845*^9}, {
   3.626164321826791*^9, 3.626164327986407*^9}}],

Cell[TextData[{
 "Model of a combustion chamber and nozzle for monopropellant fuel.\n\n",
 Cell[GraphicsData["Metafile", "\<\
CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0000NH0@000?@0001ko_ooNokoojL100340@00
0000000000371000]0P00215CDH00040V0L001X000020000@`0006`000000000EPD00003003R0@00
3`40000000000000000006IJ1`1E8P@0B@1^06/0L`1S0640L01U0200<00^03@0>00^0380801b03T0
>00a03T0800X0440M@1W0200<@0d0200<P0`0340<@0Y0000J@1^06/0L`1S0640L01U02d0H`1/06T0
L01R06l0H@1b06@0;@1U07P0L01_0780M00^06D0K@1V000000000140000<0000200000T0000@0000
a`@00;@8000;000040000280000o0000AP0002P0000L0000Df=bIFE^?C4c=SIh=cHhL7P/83@h<WPb
=c5]KDH0000<1000oP<004AbHGMYKVLm<2h`N3@h>3H`<S8g<3Dc>CDi=S@h<cHc=S<g<3Pc=c<h=S@h
<S4e=S8g=38c<CPg<cHh>38f=SPg=S<e<CPa>C0f<C@d>CTf=3<c<3Ti=C0`<SDe>3@i<C8e<CTh=30g
=SLe=3Lg<cHh=C<h=C@g=3@`<c8b=C8g<SHh=30f=C0g<C4`<cDg=30a<30a>CTb=3H`=cH`=cTe>CP`
>3Le<SPi<SHa<CDc=cLd=STd=CHg=SLe=C0d=3Td<3Li<cTb>C0h<S4f>C@d<CTh>C<e<cHa>3Lb>C<b
=S@f<CPh<C0a=C8g=3Lf<3<g<SHc=c8e=C8c<c@i>3Lh<SLh=C4f>C@h<CLf=3<`=38b<CHa=S@b=S8`
=c<d=CPb=SPd<CLg<C@c<CDa<C0b=c4g=S<c>3@b<cDh<S@a<3Db<c8a=c@a>3<b<3Th=3Dd>3@h=3Hc
<CLc>3Th=S8`<cTa<3<`=cHb=3@`>CTf<3Ph>C4d<CTe>3<e=SHb<cHe=c0a<3Pd=c@b=cDc=c<`<SHf
=CLg<CHh=SHc=CPa<cLi=34h<S4e=CTb<3Lf<CTb<3Df>3@h>30`<CLi>C<d=C@h<3Pg=30h<30e<cPg
=34`>CPf<3De=cPd=CD`=SDc>C0e=SHi>CL`=S0b>CTi<S4f=SPd<S0`=3Pf<34d=3Lb<c<h=c@i=SDc
<CTb=3L`=S8f<CTd<STh<34`<3Hh=C8f<c<f=S8`=cDa=SLh>3<i=S4d<CTd<34e<S<e<CPa<C8c<C0`
=3Dg<38e<c<h=3<h=cLd=cHb=CDi=cPb<STg=C8i<c@g>CHc=3Lc<C0f=C<f=cHd<3Di<3Di=C0`<cTc
=C0a>3@c=SLe<SDg<3Pb>CTg=C8g<cPd=S4h<cT`>3Hd>3Lg=CDe<3H`=cDg<3@`<3@`<c0i>3@f=C8c
=c<d=S@b<3<h=C<f=3<a<3Ha<3Ld=c<f>CLi=cTe=C<i=SLb<cTa=CL`>C<b=38d>3@i=CHb>CPf=S8`
>CDf<S4e<30`<30e<SDa>3Hb=S4a=CTi<c@`=S4f<SPd=3Li<SHf<3Pa=S0g=C<d=cP`<c0f=SHf=c8c
<3<d<3La=3Pe=3<f=S@b<C4`=34`<3Hb<C0g>C8i<C<d=c<d<cHb=cDa=38a>CTi=3<a=38d>3Td<cLb
=3<c=C<i<S<h=38a<cHi=C0i<38`=SHa>38d<CPa<S<g<STg<c0e=CDg=CHc=CDc=CDh<cPg<3<d=SD`
=CD`>C8b=3@i<30g<3<g=38i<S0i<3De<38`<3Lc<38`<S0c>3<e=SH`=SPb<cHi>CTe=CHd=S4d=c0h
>CPi=3<g=CPf<SLe=3@d<cTf001O0000>0000040000h0000000003P000000000028101`000000000
0000000000000000000002D0000<00000@0003X0000<00006P4003/0000800006`000100000>0000
YPP005P0000X000000000000003oooooooooo`<0000b0=L7Q@0l1]X1O@AH0000:000000000000000
ooooooooool30000lP551?d140CJ0KP3F00002P00000000000000?oooooooooo0`000:@1AP<W0B03
lP230UP0000X000000000000003oooooooooo`<0003L0442_`2<0OL0o`1H0000:000000000000000
ooooooooool30000:`5k08T12`1U0Ph0F00002P00000000000000?oooooooooo0`0004432`2b0hD0
i`<E0EP0000X000000000000003oooooooooo`<0000G19T1k@=U0^d3I@9H0000:000000000000000
ooooooooool30000Z0<=0c/3AP<50kP3F00002P00000000000000?oooooooooo0`000>8240C/0TD4
1@=m15P0000X000000000000003oooooooooo`<0001:13D6U0CG1kP4YPPl000020000400000H0000
Nokoog_noonW0@00a04002D0000<00001`00P2P0000<00000@0000h0000D000000000100000D0000

\>"], "Graphics",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  ImageSize->{97., 177.1304347826087},
  ImageMargins->{{0, 0}, {0, 94}}],
 "\n"
}], "Text",
 CellChangeTimes->{{3.6327774770987616`*^9, 3.632777563394697*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"domain", "=", "\"\<Aero\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<CombustionChamberMono\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Hydraulic volume with two connection\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellChangeTimes->{
  3.5042704357554045`*^9, {3.5159023742081404`*^9, 3.5159024232706404`*^9}, {
   3.51670646940555*^9, 3.516706478608675*^9}, 3.5684505041258545`*^9, 
   3.5698704665511217`*^9, 3.569870770505498*^9, 3.5698736691551065`*^9, {
   3.5700294125046115`*^9, 3.570029413619675*^9}, {3.571861551379243*^9, 
   3.571861570192876*^9}, 3.571926198323962*^9, 3.5757879787750444`*^9, {
   3.5769421260582237`*^9, 3.576942132400586*^9}, {3.585565721543457*^9, 
   3.5855657233405595`*^9}, 3.5855657678881073`*^9, 3.585970738275631*^9, 
   3.5907536940196877`*^9, {3.6058720364207926`*^9, 3.60587203990114*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2014", ",", "11", ",", "28", ",", "12", ",", "54", ",", 
   "3.6269696`8.312118896467481"}], "}"}]], "Output",
 CellChangeTimes->{3.626164443637971*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Model", "Subsection",
 CellChangeTimes->{{3.5159024543018904`*^9, 3.5159024592393904`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", "\t", 
    RowBox[{"HydraulicCnode", "[", 
     RowBox[{"1", ",", 
      RowBox[{"1.", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "\"\<Upstream port\>\""}], "]"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4752292939381866`*^9, 3.4752293318441935`*^9}, {
   3.47808399728125*^9, 3.478083998921875*^9}, 3.4988885288475237`*^9, {
   3.50394176215625*^9, 3.503941811890625*^9}, {3.50427113076719*^9, 
   3.50427113339219*^9}, 3.50427121389219*^9, {3.51582103693931*^9, 
   3.5158210378611856`*^9}, {3.569870780957516*^9, 3.5698707818311176`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"pa", ",", 
      RowBox[{"1.0", "*", 
       RowBox[{"10", "^", "5"}]}], ",", "double", ",", "\"\< \>\"", ",", 
      "\"\<Free stream pressure\>\""}], "}"}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.5704741094426193`*^9, 3.5704741414684515`*^9}, 
   3.571233572328911*^9, 3.585472109554124*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Vc", ",", "0.02", ",", "double", ",", "\"\< \>\"", ",", 
       "\"\<Chamber volume (for numerics)\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "R", ",", "396", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Gas constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "cv", ",", "1800", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Heat capacity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "vfuel", ",", "1571.", ",", "double", ",", "\"\<m/s\>\"", ",", 
       "\"\<Exhaust speed\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ethap", ",", "0.9", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Efficiency factor (<1)\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhofuel", ",", "1200.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<Fuel density\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "As", ",", "0.00196", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<min effective area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Med", ",", "2.5", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Design exit Mach\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alpha", ",", "0.3", ",", "double", ",", "\"\<1/s \>\"", ",", 
       "\"\<Damp. factor\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5039965585179834`*^9, 3.503996561692254*^9}, {
   3.522605551890625*^9, 3.522605566234375*^9}, {3.5654334434341664`*^9, 
   3.5654336746853623`*^9}, {3.5654679343190994`*^9, 
   3.5654680194339676`*^9}, {3.5655883583080864`*^9, 
   3.5655884053889694`*^9}, {3.565594406736371*^9, 3.565594471273684*^9}, {
   3.5656242519924636`*^9, 3.5656243003681483`*^9}, {3.5656243395086174`*^9, 
   3.5656243687430687`*^9}, {3.5656254173679185`*^9, 3.565625464230401*^9}, 
   3.5656255083472786`*^9, {3.5689206642122784`*^9, 3.5689207150771875`*^9}, {
   3.5698329229249806`*^9, 3.5698329895058975`*^9}, {3.569836202071379*^9, 
   3.5698362173594065`*^9}, 3.569849024651142*^9, {3.5698514952985497`*^9, 
   3.5698515247982016`*^9}, {3.569852147888132*^9, 3.569852186623*^9}, {
   3.5698753102965603`*^9, 3.5698753231662965`*^9}, 3.5700299514864397`*^9, 
   3.570392394757981*^9, 3.5712356007449293`*^9, {3.571236091578004*^9, 
   3.571236117829505*^9}, {3.5712983309848943`*^9, 3.571298340503439*^9}, {
   3.5718249944690647`*^9, 3.571825014576215*^9}, {3.5718594450715847`*^9, 
   3.5718594459451866`*^9}, {3.5810529620212717`*^9, 3.5810530704698715`*^9}, 
   3.5908072238885756`*^9, {3.6261643789915066`*^9, 3.6261643859231997`*^9}, {
   3.6659026228279257`*^9, 3.6659026287878776`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"outputVariables", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "thrust", ",", "0.", ",", "double", ",", "\"\<m3/s\>\"", ",", 
       "\"\<thrust\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Tc", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<cahmber temerature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "rhogas", ",", "0.", ",", "double", ",", "\"\<kg/m3\>\"", ",", 
       "\"\<density in chamber\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "mdot", ",", "0.", ",", "double", ",", "\"\<kg/s\>\"", ",", 
       "\"\<Exit mass flow\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Ae", ",", "0.", ",", "double", ",", "\"\<m2\>\"", ",", 
       "\"\<exit Area\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pe", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<exit pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "pc", ",", "0.", ",", "double", ",", "\"\<Pa\>\"", ",", 
       "\"\<chamber pressure\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Te", ",", "273.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit temperature\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "ve", ",", "0.", ",", "double", ",", "\"\<K\>\"", ",", 
       "\"\<exit velocity\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pin", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Input power\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "Pout", ",", "0.", ",", "double", ",", "\"\<W\>\"", ",", 
       "\"\<Output power\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.565539113334306*^9, 3.565539170607582*^9}, 
   3.5655884315190153`*^9, {3.5655908350732856`*^9, 3.5655908608133307`*^9}, {
   3.5689134004328136`*^9, 3.5689134318216095`*^9}, {3.569832577540374*^9, 
   3.569832598803211*^9}, {3.569849279670601*^9, 3.5698492803882027`*^9}, {
   3.569849895365325*^9, 3.5698499629602437`*^9}, {3.57027251873244*^9, 
   3.5702727197269363`*^9}, {3.5704730622877254`*^9, 
   3.5704730764595366`*^9}, {3.570473757821508*^9, 3.5704737742314463`*^9}, {
   3.5712384023921747`*^9, 3.5712384109286633`*^9}, {3.5714148432134714`*^9, 
   3.5714148651367254`*^9}, 3.571825064632078*^9, {3.577287063744469*^9, 
   3.5772870691517787`*^9}, {3.581057616690789*^9, 3.581057626863789*^9}, {
   3.5854721187846518`*^9, 3.5854721245389805`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "=", "gam"}], ";"}]], "Input",
 CellChangeTimes->{{3.571299017466159*^9, 3.571299038203345*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"pc", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c1f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2f", "==", "p1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Tc", "\[Equal]", "T1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"rhogas", " ", "==", 
      FractionBox[
       RowBox[{" ", "pc"}], 
       RowBox[{"R", " ", 
        RowBox[{"(", 
         RowBox[{"Tc", "+", "1"}], ")"}]}]]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51681842278125*^9, 3.516818476890625*^9}, 
   3.516818573890625*^9, {3.5698739048403206`*^9, 3.569873941266384*^9}, 
   3.570031760851929*^9, 3.570473448103793*^9, {3.5704736357605267`*^9, 
   3.570473651696438*^9}, 3.5712328599921675`*^9, {3.571239156806325*^9, 
   3.5712391949185047`*^9}, {3.5718593792738695`*^9, 3.571859411004325*^9}, {
   3.5730585003313026`*^9, 3.5730585710843496`*^9}, {3.577205360078287*^9, 
   3.577205392197124*^9}, {3.577287054872962*^9, 3.577287055401992*^9}, {
   3.5772873493938074`*^9, 3.5772873498948364`*^9}, {3.5772878646422777`*^9, 
   3.5772878671994247`*^9}, {3.5810576389267893`*^9, 3.581057642447789*^9}, {
   3.5854722604067516`*^9, 3.5854722861052217`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["initialExpressions"], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"c1", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2", "\[Equal]", "p1"}], ",", 
   RowBox[{"pc", "\[Equal]", "p1"}], ",", 
   RowBox[{"c1f", "\[Equal]", "p1"}], ",", 
   RowBox[{"c2f", "\[Equal]", "p1"}], ",", 
   RowBox[{"Tc", "\[Equal]", "T1"}], ",", 
   RowBox[{"rhogas", "\[Equal]", 
    FractionBox["pc", 
     RowBox[{"R", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "Tc"}], ")"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.59075345107176*^9, 3.59075350562531*^9, 
  3.590753758472154*^9, 3.590807251028701*^9, 3.6261644437709837`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"cfuel", "=", 
   RowBox[{"ethap", " ", 
    FractionBox[
     SuperscriptBox["vfuel", "2"], "2"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569851306825736*^9, 3.569851404036707*^9}, 
   3.5703923675004215`*^9, {3.5704746874626803`*^9, 3.570474713213153*^9}, 
   3.5718299672550926`*^9, {3.6261644058031874`*^9, 3.6261644161302204`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cep", "=", 
   RowBox[{"\[Gamma]", " ", "Vc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570472612395993*^9, 3.570472615218155*^9}, {
   3.5704726588736515`*^9, 3.5704726820809793`*^9}, 3.5712994508649473`*^9, 
   3.5854722507161975`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mdot1", "=", 
   RowBox[{"q1", " ", "rhofuel"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q1E", "=", 
   RowBox[{"q1", " ", "rhofuel", " ", 
    RowBox[{"(", "cfuel", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mdot2", "=", 
   RowBox[{"-", "mdot"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5703061899370613`*^9, 3.5703062136854196`*^9}, {
   3.5703062444511795`*^9, 3.570306246772312*^9}, 3.570306431637886*^9, 
   3.570306553634864*^9, 3.5703073189876394`*^9, {3.5703075923892775`*^9, 
   3.5703076087802143`*^9}, {3.5703076633683367`*^9, 3.570307673589922*^9}, {
   3.570473512144456*^9, 3.5704735128824987`*^9}, {3.571232833404647*^9, 
   3.5712328412480955`*^9}, {3.573060707368538*^9, 3.5730607150299764`*^9}, 
   3.5805553928407936`*^9, {3.5813506717434783`*^9, 3.5813506756126995`*^9}, 
   3.5854721451161575`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Zc1e", "=", 
  FractionBox[
   RowBox[{"mTimestep", " ", "rhofuel", " ", "cfuel", " "}], 
   "Cep"]}]], "Input",
 CellChangeTimes->{{3.5703068226022477`*^9, 3.5703068410983057`*^9}, {
   3.5703924271288323`*^9, 3.5703924578185873`*^9}, {3.5704725544746804`*^9, 
   3.570472577945023*^9}, 3.570472764138673*^9, 3.5712328439192486`*^9, 
   3.5712362936765633`*^9, 3.573060757807423*^9, {3.58135077474037*^9, 
   3.5813507753924065`*^9}, {3.5813510838110476`*^9, 3.581351086073177*^9}, {
   3.620376669576288*^9, 3.6203766777031007`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"ethap", " ", "mTimestep", " ", "rhofuel", " ", 
   SuperscriptBox["vfuel", "2"]}], 
  RowBox[{"2", " ", "gam", " ", "Vc"}]]], "Output",
 CellChangeTimes->{3.590753451134161*^9, 3.5907535056877103`*^9, 
  3.5907537585345545`*^9, 3.590807251106737*^9, 3.62616444382999*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZcEp", "=", 
  FractionBox["mTimestep", "Cep"]}]], "Input",
 CellChangeTimes->{{3.5704727084904895`*^9, 3.570472718950088*^9}, {
   3.5704734125617604`*^9, 3.5704734127367706`*^9}, 3.570474589090054*^9, 
   3.57123567907941*^9}],

Cell[BoxData[
 FractionBox["mTimestep", 
  RowBox[{"gam", " ", "Vc"}]]], "Output",
 CellChangeTimes->{3.5907534511653605`*^9, 3.5907535057033105`*^9, 
  3.590753758565755*^9, 3.5908072511535587`*^9, 3.6261644438569927`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qE1", "=", 
  RowBox[{"mdot1", " ", "cfuel"}]}]], "Input",
 CellChangeTimes->{{3.5700315725051565`*^9, 3.570031584175824*^9}, {
   3.571233114797742*^9, 3.571233115161762*^9}, 3.5712332487414026`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "ethap", " ", "q1", " ", "rhofuel", " ", 
  SuperscriptBox["vfuel", "2"]}]], "Output",
 CellChangeTimes->{3.5907534511809607`*^9, 3.590753505734511*^9, 
  3.590753758581355*^9, 3.5908072511847725`*^9, 3.6261644438869953`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"qE2", " ", "=", 
   RowBox[{
    RowBox[{"-", "mdot"}], " ", 
    RowBox[{"(", 
     RowBox[{"cv", "+", "R"}], ")"}], " ", "Tc"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570307281120474*^9, 3.5703073045888157`*^9}, {
   3.570473527496334*^9, 3.570473528284379*^9}, {3.571233117368889*^9, 
   3.5712331186469617`*^9}, 3.5730565177869077`*^9, {3.581329201204209*^9, 
   3.5813292063525033`*^9}, {3.581329284702985*^9, 3.581329317123839*^9}, {
   3.581332773124511*^9, 3.5813327816139965`*^9}, 3.5813328170890255`*^9, 
   3.5813508723609533`*^9, {3.5813565937011952`*^9, 3.581356600529586*^9}, {
   3.5847710769157896`*^9, 3.5847710857572956`*^9}, {3.5847711235564575`*^9, 
   3.584771128951766*^9}, {3.5847711652808437`*^9, 3.5847711657818727`*^9}, {
   3.5847712503147078`*^9, 3.5847712590682087`*^9}, 3.584778923432585*^9, 
   3.584785378397788*^9, 3.5849761013055277`*^9, {3.5849763654506364`*^9, 
   3.5849763661876783`*^9}, 3.5854721605820417`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox[
  RowBox[{"\[Gamma]", " ", "R", " ", "Te"}]]], "Input"],

Cell[BoxData[
 SqrtBox[
  RowBox[{"gam", " ", "R", " ", "Te"}]]], "Output",
 CellChangeTimes->{3.590753451212161*^9, 3.590753505765711*^9, 
  3.5907537586125555`*^9, 3.590807251215987*^9, 3.626164443921999*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Gamma]", "==", 
      FractionBox[
       RowBox[{"cv", "+", "R"}], "cv"]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c10", "==", 
      RowBox[{"c2", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c20", "==", 
      RowBox[{"c1", "+", 
       RowBox[{"2", " ", "ZcEp", " ", "qE1"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818175265625*^9, 3.51681819540625*^9}, {
   3.516818378453125*^9, 3.516818390015625*^9}, {3.5700315278346014`*^9, 
   3.5700315301257324`*^9}, {3.570473894668335*^9, 3.5704738961954226`*^9}, {
   3.570474569105911*^9, 3.570474572809123*^9}, {3.571235454712577*^9, 
   3.5712354596208577`*^9}, {3.5712982962379065`*^9, 3.571298322432405*^9}, 
   3.5713187972935*^9, {3.571859358806634*^9, 3.5718593708654547`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemEquationsDA", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"der", "[", "rhogas", "]"}], "==", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"mdot1", "+", "mdot2"}], ")"}], "Vc"]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"rhogas", " ", "R", " ", "Tc"}], " ", "==", " ", "pc"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"mdot", "==", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"As", " ", "pc"}], 
         SqrtBox[
          RowBox[{
           RowBox[{"Abs", "[", "Tc", "]"}], "+", "1"}]]], 
        SqrtBox[
         FractionBox["\[Gamma]", "R"]], 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[Gamma]", "+", "1"}], 
           RowBox[{"2", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]]}], ")"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.570049196534193*^9, 3.570049290841587*^9}, {
   3.5702706207238803`*^9, 3.570270624359088*^9}, {3.570270673951925*^9, 
   3.570270711199055*^9}, {3.570270939501113*^9, 3.570271021825822*^9}, {
   3.5702721412388487`*^9, 3.5702721752057915`*^9}, {3.5702722527732277`*^9, 
   3.5702722753895216`*^9}, {3.5702723081883974`*^9, 3.570272322377209*^9}, {
   3.5702725021374907`*^9, 3.570272505182665*^9}, {3.5702727244372053`*^9, 
   3.570272735395832*^9}, {3.570272843387009*^9, 3.5702728491533394`*^9}, {
   3.570306106424285*^9, 3.570306114228731*^9}, 3.570306990202834*^9, {
   3.5703070296510906`*^9, 3.570307075648721*^9}, {3.570307187787135*^9, 
   3.5703072118185096`*^9}, {3.570307296711365*^9, 3.5703073209817533`*^9}, {
   3.570307491141486*^9, 3.5703075772694125`*^9}, {3.570307630695468*^9, 
   3.570307635778759*^9}, {3.5703077114220853`*^9, 3.5703077367725353`*^9}, {
   3.570307910054446*^9, 3.570307912796603*^9}, {3.5703920692453623`*^9, 
   3.570392098411031*^9}, {3.5703921399694076`*^9, 3.5703921437436237`*^9}, {
   3.5712333345423107`*^9, 3.571233349905189*^9}, 3.57123607192788*^9, 
   3.571236188651556*^9, {3.571298520924758*^9, 3.5712987086734967`*^9}, {
   3.5712987682829065`*^9, 3.5712989160053554`*^9}, {3.5712989979660435`*^9, 
   3.571299001730259*^9}, {3.571299044467703*^9, 3.571299119470993*^9}, {
   3.5712991505387697`*^9, 3.571299180385477*^9}, {3.571825032201223*^9, 
   3.571825046125019*^9}, 3.5718275736768856`*^9, 3.5718290313972273`*^9, {
   3.5718290753269043`*^9, 3.5718291262921934`*^9}, {3.5718291998931227`*^9, 
   3.571829201094325*^9}, {3.5718597308161974`*^9, 3.571859741252616*^9}, {
   3.5772882044967165`*^9, 3.5772882045617204`*^9}, 3.5805567951470013`*^9, {
   3.581057507849789*^9, 3.5810575183217893`*^9}, {3.585472169514553*^9, 
   3.5854721757769113`*^9}, 3.5854723589613886`*^9, {3.5907534204955645`*^9, 
   3.590753428498416*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"systemVariables", "=", 
   RowBox[{"{", 
    RowBox[{"rhogas", ",", "Tc", ",", "mdot"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5702709993645372`*^9, 3.57027100990114*^9}, {
   3.570271051269506*^9, 3.570271103429489*^9}, {3.5702723480836797`*^9, 
   3.5702723511688557`*^9}, 3.570272727380374*^9, {3.5702727744360657`*^9, 
   3.570272776054158*^9}, {3.5703077245898385`*^9, 3.570307725247876*^9}, 
   3.570307802125273*^9, {3.570392272203971*^9, 3.570392272776004*^9}, 
   3.5712358224876127`*^9, 3.5713977390241675`*^9, 3.5718250499582386`*^9, 
   3.571827595064523*^9, 3.5718291204421835`*^9, {3.5718291917655087`*^9, 
   3.5718291921867094`*^9}, {3.581057605930789*^9, 3.581057606973789*^9}, 
   3.5854721788300858`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"variableLimits", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mdot", ",", "0.", ",", 
      RowBox[{"1.", " ", 
       SuperscriptBox["10", "9"]}]}], "}"}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5713082545844917`*^9, 3.5713082732005568`*^9}, {
   3.57130832484351*^9, 3.571308350515979*^9}, {3.5713205279444876`*^9, 
   3.5713205374340305`*^9}, 3.5713241499496546`*^9, {3.5714159147307587`*^9, 
   3.571415918724987*^9}, 3.5714165950276694`*^9, 3.57182507532969*^9, {
   3.5730584254660206`*^9, 3.573058427516138*^9}, {3.5772873592043686`*^9, 
   3.5772873678348627`*^9}, {3.5810577159968824`*^9, 3.5810577173131456`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Me", "=", "Med"}], ";"}]], "Input",
 CellChangeTimes->{{3.5718250774868135`*^9, 3.571825081745057*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c1", "==", 
      RowBox[{
       RowBox[{"c10", 
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}]}], "+", 
       RowBox[{"alpha", " ", "c1"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"c2", "==", 
      RowBox[{
       RowBox[{"c20", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}]}], "+", 
       RowBox[{"alpha", " ", "c2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zc1", "==", "Zc1e"}], ",", "\[IndentingNewLine]", 
     RowBox[{"pc", "==", 
      RowBox[{"c2", "+", 
       RowBox[{"ZcEp", " ", "qE2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ae", "==", 
      RowBox[{"As", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], "2"], ")"}], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]}]], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[Gamma]", "-", "1"}], "2"], 
            SuperscriptBox["Med", "2"]}]}], ")"}], 
         FractionBox[
          RowBox[{"\[Gamma]", "+", "1"}], 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]]], "Med"]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"pe", "==", 
      RowBox[{"pc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        FractionBox[
         RowBox[{"-", "\[Gamma]"}], 
         RowBox[{"\[Gamma]", "-", "1"}]]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Te", "==", 
      RowBox[{"Tc", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Gamma]", "-", "1"}], "2"], 
           SuperscriptBox["Me", "2"]}]}], ")"}], 
        RowBox[{"-", "1"}]]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ve", "==", 
      RowBox[{"Me", " ", 
       SqrtBox[
        RowBox[{"\[Gamma]", " ", "R", " ", "Te"}]]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"thrust", "\[Equal]", 
      RowBox[{"lowLimit", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"mdot", " ", "ve"}], "+", 
          RowBox[{"Ae", 
           RowBox[{"(", 
            RowBox[{"pe", "-", "pa"}], ")"}]}]}], ")"}], ",", "0"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Pin", "==", 
      RowBox[{"mdot1", " ", "cfuel"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Pout", "\[Equal]", 
      RowBox[{
       RowBox[{"-", "mdot2"}], " ", 
       FractionBox[
        SuperscriptBox["ve", "2"], "2"]}]}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{
  3.5698736249914293`*^9, 3.57002958853968*^9, {3.570030206489025*^9, 
   3.5700302097402105`*^9}, {3.570031804877447*^9, 3.5700318166821227`*^9}, {
   3.5703077432729073`*^9, 3.57030778021002*^9}, {3.570307933648796*^9, 
   3.570307936992987*^9}, {3.570392100271137*^9, 3.570392120063269*^9}, {
   3.570392212530558*^9, 3.570392230817604*^9}, {3.570472756451233*^9, 
   3.5704727580843267`*^9}, {3.5704731758712225`*^9, 
   3.5704732734318027`*^9}, {3.5704733558915186`*^9, 
   3.5704733909705257`*^9}, {3.570473424136422*^9, 3.57047342496447*^9}, {
   3.5704734884581013`*^9, 3.570473505186058*^9}, {3.5704735585451097`*^9, 
   3.5704735757620945`*^9}, {3.570473804700189*^9, 3.570473867355773*^9}, {
   3.571235487192435*^9, 3.571235491094658*^9}, 3.5712359786285434`*^9, {
   3.5712362393124533`*^9, 3.5712362629698067`*^9}, {3.57123632509236*^9, 
   3.571236325404378*^9}, {3.5712363567841725`*^9, 3.5712363804225245`*^9}, {
   3.5712567684446526`*^9, 3.5712567707457843`*^9}, 3.571257066999729*^9, {
   3.571299285839509*^9, 3.5712993253587694`*^9}, 3.5713014826321583`*^9, {
   3.5718275789496946`*^9, 3.5718275893237133`*^9}, {3.5718290349228334`*^9, 
   3.571829070054095*^9}, {3.5718291013477497`*^9, 3.5718291609398546`*^9}, {
   3.5718296728570433`*^9, 3.571829677178251*^9}, {3.5718297219971294`*^9, 
   3.5718297244775343`*^9}, {3.571838227020904*^9, 3.571838227410905*^9}, {
   3.571859289121311*^9, 3.571859347746214*^9}, 3.571859575812479*^9, 
   3.5805982697975597`*^9, {3.5813528604316645`*^9, 3.581352881845889*^9}, 
   3.581352966171712*^9, {3.5854721830733285`*^9, 3.5854721913668027`*^9}, {
   3.5854723250604496`*^9, 3.585472334401984*^9}, {3.590807126717148*^9, 
   3.59080716734369*^9}}],

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input",
 CellChangeTimes->{3.5039025691670113`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1008, 690},
WindowMargins->{{Automatic, 383}, {Automatic, 89}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 194, 2, 59, "Section"],
Cell[776, 26, 248, 4, 41, "Input"],
Cell[1027, 32, 749, 15, 41, "Input"],
Cell[1779, 49, 3030, 44, 246, "Text"],
Cell[CellGroupData[{
Cell[4834, 97, 1605, 35, 202, "Input"],
Cell[6442, 134, 195, 5, 41, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6674, 144, 97, 1, 36, "Subsection"],
Cell[6774, 147, 678, 13, 82, "Input"],
Cell[7455, 162, 458, 11, 82, "Input"],
Cell[7916, 175, 3004, 60, 242, "Input"],
Cell[10923, 237, 2778, 60, 282, "Input"],
Cell[13704, 299, 142, 3, 41, "Input"],
Cell[13849, 304, 1451, 27, 233, "Input"],
Cell[CellGroupData[{
Cell[15325, 335, 44, 0, 41, "Input"],
Cell[15372, 337, 598, 15, 56, "Output"]
}, Open  ]],
Cell[15985, 355, 373, 8, 59, "Input"],
Cell[16361, 365, 273, 6, 41, "Input"],
Cell[16637, 373, 892, 18, 82, "Input"],
Cell[CellGroupData[{
Cell[17554, 395, 559, 10, 58, "Input"],
Cell[18116, 407, 310, 6, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18463, 418, 252, 5, 58, "Input"],
Cell[18718, 425, 223, 4, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18978, 434, 224, 4, 41, "Input"],
Cell[19205, 440, 279, 5, 56, "Output"]
}, Open  ]],
Cell[19499, 448, 988, 17, 41, "Input"],
Cell[CellGroupData[{
Cell[20512, 469, 79, 2, 45, "Input"],
Cell[20594, 473, 210, 4, 44, "Output"]
}, Open  ]],
Cell[20819, 480, 1466, 27, 153, "Input"],
Cell[22288, 509, 3009, 60, 185, "Input"],
Cell[25300, 571, 768, 13, 41, "Input"],
Cell[26071, 586, 726, 14, 87, "Input"],
Cell[26800, 602, 138, 3, 41, "Input"],
Cell[26941, 607, 4793, 116, 401, "Input"],
Cell[31737, 725, 107, 2, 41, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
